home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 March / macformat-101.iso / mac / MacFormat Data / MacFormat / 00011_Sitelist.ls < prev    next >
Encoding:
Text File  |  2001-01-25  |  532 b   |  19 lines
  1. on mouseWithin
  2.   lineOver = the mouseLoc
  3.   currentMember = sprite(11).member
  4.   lineNum = sprite(11).pointToLine(lineOver)
  5.   lineText = currentMember.line[lineNum]
  6.   hilite member(11).line[lineNum]
  7.   if lineText = EMPTY then
  8.     put EMPTY into member "infoText"
  9.     exit
  10.   end if
  11.   sprite(10).member = member(lineText, "websitePictures")
  12.   updateStage()
  13.   put EMPTY & RETURN & "To visit the '" & lineText & "' website, click within its web graphic..." into member "infoText"
  14. end
  15.  
  16. on mouseLeave
  17.   put EMPTY into member "infoText"
  18. end
  19.